home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / mode_33.txt < prev    next >
Text File  |  1994-03-01  |  292b  |  3 lines

  1. 1 ' *** OISAC 2 *** MODE 33 ***
  2. 10 DEFSEG=0:X=1771:A=PEEKX:B=PEEK(X+1):INPUT"Debut de bloc : ",d,"Fin de bloc  : ",F,"Destination : ",a:n=F-d
  3. 20 f=d-1:e=n+f:IFFRE1+e-f>=0THENo=a+n-1:POKEX,204:POKEX+1,247:POKEX+3,5:GOSUB2090:POKEX,A:POKEX+1,B:POKEX+3,0 ELSEBEEP:PRINT"MODE33 impossible";:END